﻿<!--#include file="const.asp"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>


<%
if sid="Null" then
	Response.Redirect "login.asp"
	Response.end
end if
IF  Request.QueryString("Action")="login" Then
	call login
else
	call index
end if
end Function



Function index
	dim rs,sql,Runtxt
	Runtxt=qingtian.RunStr
%>
	<card title="压缩数据库"><p align="left">
	<%if not fsolimit then%>
	请输入数据库的相绝对路径:<br/>
	注意:压缩数据库可能会导致数据库出错,建议先备份或下载到电脑用ACCESS压缩<br/>
	数据库：<input emptyok="true"  name="Dbpath<%=Runtxt%>" maxlength="50" value="<%=qingtian.FormatEdit(const_AccessDatabase)%>" type="text"/><br/>
	<anchor>开始压缩
    	<go href="dbcompact.asp?Action=login&amp;sid=<%=sid%>" method='post'>
        <postfield name="Dbpath" value="$(Dbpath<%=Runtxt%>)"/>
    	</go>
	</anchor><br/>
	<%end if%>
-------------<br/>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
End Function


Function login

		dim Dbpath,rs,sql,errs
		Dbpath=Request.form("Dbpath")

		errs=""
		if Dbpath="" then errs=errs & "数据库的相绝对路径不能为空<br/>"

	%>
	<card id="login" title="压缩数据库" ontimer="index.asp?sid=<%=sid%>"><timer value="20"/>
		<p align="left">
	<%
	IF len(errs)=0 then
		Dbpath=server.mappath(trim(Dbpath))
		Dim fso, Engine, strDBPath,JET_3X 
		strDBPath = left(dbPath,instrrev(DBPath,"\")) 
		Set fso = CreateObject("Scripting.FileSystemObject") 

		If fso.FileExists(dbPath) Then 
			fso.CopyFile dbpath,strDBPath & "temp.mdb" 
			Set Engine = CreateObject("JRO.JetEngine") 

			Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb", _ 
			"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp1.mdb" 

			fso.CopyFile strDBPath & "temp1.mdb",dbpath 
			fso.DeleteFile(strDBPath & "temp.mdb") 
			fso.DeleteFile(strDBPath & "temp1.mdb") 
			Set fso = nothing 
			Set Engine = nothing 

			%>你的数据库已经压缩成功!<br/><%

		Else 
			%>数据库名称或路径不正确. 请重试!或用备份数据库压缩!<br/><%
		End If 

	else%>
		<%=errs%>
		<a href="dbcompact.asp?sid=<%=sid%>">返回修改</a><br/>
<%	end if
%>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
end Function 

function fsolimit()
	on error resume next
	fsolimit=false
	dim fsolimitstr,testfso
	Set testfso = CreateObject("Scripting.FileSystemObject") 
	if not isobject(testfso) then	'不支持FSO
		fsolimit=true
		fsolimitstr="注意：此功能需要FSO的支持，您现在使用的服务器<b>不支持</b>该组件,所以该功能无法实现！<br/>"
	else
		fsolimit=false
		fsolimitstr="注意：此功能需要FSO的支持，您现在使用的服务器<b>支持</b>该组件。<br/>"
	end if
	Response.Write(fsolimitstr)
end function


%>
